home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
foscom12.arc
/
CHKMDM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-08-26
|
767b
|
36 lines
Program Testmodem;
Uses Crt,foscom;
Var
T : Boolean;
Comport : Byte;
St : String;
Begin
writeln;
writeln ('Modem-Tester.');
writeln ('Copyright (c)) 1989 by Me.');
if paramcount<1 then begin
writeln;
writeln ('Usage: CHKMDM <Comport: 1,2,3 or 4>');
halt;
end;
St:=paramstr(1);
if st='1' then comport:=1;
if st='2' then comport:=2;
if st='3' then comport:=3;
if st='4' then comport:=4;
Fos_Init(Comport);
Fos_Parms(Comport,1200,8,'N',1);
clrscr;
writeln ('Testing modem....');
T:=Fos_CheckModem(Comport);
writeln;
Case T of
TRUE : Writeln ('OK. Modem responding correctly');
FALSE: Writeln ('Modem is NOT responding...');
end;
Fos_Close(comport);
end.